(ibuffer-format-filter-group-data): New function.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index c077e3362eec4ed8ecfd03a6282319783a6ba40e..ff4e8b76e81a1042e597fe8de0b4010bab365884 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -896,6 +896,13 @@ of replacing the current filters."
                       ibuffer-saved-filters nil t))))
   (setq ibuffer-filtering-qualifiers (list (cons 'saved name)))
   (ibuffer-update nil t))
+
+(defun ibuffer-format-filter-group-data (filter)
+  (if (equal filter "Default")
+      ""
+    (concat "Filter: " (mapconcat #'ibuffer-format-qualifier
+                                 (cdr (assq filter ibuffer-filter-groups))
+                                 " ") "\n")))
   
 (defun ibuffer-format-qualifier (qualifier)
   (if (eq (car-safe qualifier) 'not)